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SNXTVOL, SSPACE & OTHER MAGTAPE CODE 16-SEP-1984 AX/VMS Macro V04~ 
=SEP=1984 10:95:08 RMS VSRCIRMSOMAGTACRAR:1 29° 1), 


ie P SBEGIN RMSOMAGTA,000,RMSRMS,<SNXTVOL, SSPACE & OTHER MAGTAPE CODE> 

0 3 

Ba8 gi PPAR REAR AEA EERE A AERA EREREAAAATERAEAREAAAEAETEAAAEE RARE 

44 8 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B « E 

00 3* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

44 8 3* ALL RIGHTS RESERVED. * | DEV! 
;* we ’ 

0000 10 ;* THIS heen: IS ryan seo nee A LICENSE AND MAY BE USED AND coPiee * ERR 

0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | EX] 

0000 \¢ 3* INCLUSION OF THE ABOVE Spittal NOTICE. THIS SOFTWARE OR ANY OTHER te F IB! 

0000 13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 1B! 

0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * F 1B! 

0000 15 ;* TRANSFERRED. * F 1B! 

0000 16 ;* * F 1B! 

0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * F 1B! 

0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 1FB! 

0000 19 ;* CORPORATIOW. * IF B! 

0000 20 ;* * IFB! 

0000 $) 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 1FB! 

0000 ¢ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a IFB! 

0000 § 3* * 1FB! 

0000 4 ;* * 10$! 

0000 25 PRR ATAAAAA RATATAT AAA eee eee eA 10$) 

0000 $8 3 10$, 

0000 7 34+ 10$. 

0000 28 ; Facility: RMS32 | 10$. 

0000 $3 3 10$ 

0000 0 ; Abstract: IRB! 

0000 31; This module provides the $SPACE and $NXTVOL RMS services as well I 

464 3 : as the internal magtape rewind file code. 

0000 34 ; Environment: 

464 2 $ STAR processor running STARLET exec. 

444 ¢ ; Author: L F Laverdure, creation date: 13-DEC-1977 | 

0000 35 : Modified By: 

0000 40 ; 

0000 41 ; v03-003 #640006 J E Johnson 11-Apr-1984 

B08 g : Tie off invalid network operations. 

444 44; v03-002 DGB0008 Donald G. Blair Ot eher= 1984 

00 45 ; Change the way the ACP is called as part of t 

44 rf ; restructuring necessary for access mode A files. 

0000 48 ; v03-001 KB10173 Keith B. Thompson 23-Aug-1982 

Bas $3 3 Reorganize psects 

0000 7 v02-020 CDS0001 C Saether 20-Dec-1981 

44 § ; Clear BIO_LAST sitar on 

000 4 ; vO2-019 pmw0001 David Michael Walp | 30-Nov-1981, 

000 $; Return EOF error rather then DPE if ‘END OF VOLUME error 

4 § 3 and foreign tape 
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RMSOMAGTA SNXTVOL, SSPACE & OTHER MAGTAPE CODE 16-SEP-1984 01:22:12 VAX/VMS M 4- P 
v04=000 : ~SEP=1984 16:95:08 ERMSLSRCIRMSOMMGTALMAR;1 29° Fy, 


V2-018 MCNO0001 Maria del C. Nasr 25~Au -1980 
After the NXTVOL function is completed, if no _at EOF, the 
position context should be destroyed by clearing the 
offset into the block, setting NR _VBN to 1, and EBK to -1. 


V02-017 REFORMAT Keith B. Thompson 29-Jul-1980 


v016 PSK0012 P S$ Knibbe 15-Feb-1980 01:20 
on space eof context should be destroyed. IRBSV_EOF bit 
is cleared, NRP_VBN is set to one and ebk is sef to -1 


v015 FSK0011 P S$ Knibbe 13-Dec-1979 03:40 
if an eof is returned on an ansi magtape, set the IRBS$V_EOF bit 
and set IRBSV_NRP_VBN equal to ebk to make sure that the bit 
gets tested. 


v014 PSK0001 P S§ Knibbe 20-Nov-1979 06:30 
added routine to write tape marks at end o le. 
also changed rewind to clear IFB$V_EOF bit and IRBS$V_EOF bit 


vw 
ooo 


v013 JAK0020 J A Krycka 05-Sep-1979 12:00 
release 2.0 work. 
v011 RANOO04 R A Newell 20-Dec-1978 10:15 


eliminate wait on tape rewind i/o function. 
Revision History: 
L F Laverdure, 31-Oct-1 ; set nowait for foreign mt rewind | 


978 10:40 
R A Newell, 18-Sep-1978 09:09 ; changed entry pt name for isam fit 
R A Newell, 31-Aug-1978 12:01 3; eliminate wait for i/o on mbx 
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po leleleleleleleleoleleleoleleleleleleolelelel el olelel ole) ele) elel ela) a) 
50 0.09.00 09 09 09 09 09 09 09 09 SII NI NINN NNN IO AAA AA AOOnm 
—=OOON AUS WN 0 ODNAUE WN -OOODNOAULS WMO 


00 
-MAR; 1 
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-SBTTL DECLARATIONS 


SSPACE & OTHER MAGTAPE CODE 


DECLARATIONS 


PRPAAAAAA 


{ 

| 

| 
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3; Equated Symbols: 
Own Storage: 


; Include Files: 


SNXTVOL 


sng" 


1 3 
SNXTVOL, SSPACE & OTHER MAGTAPE CODE 16-SEP-1986 01:22:12 VAX/VMS Macro v04-00 Pa 
S$SPACE ROUTINE ~SEe IRs QLSeiAs PARLVES Sacre VO s00 oat - 


-SBTTL $SPACE ROUTINE 


+ 
+ 


RMSS$SPACE - 


this routine spaces a magtape or disk file forward or backward 
a given number of blocks. the file must be accessed for block i/o. 


Calling sequence: 

entered as a result of user's calling sys$space 
Input Parameters: 

AP user's argument List 
Implicit Inputs: 


the contents of the rab, in particular, the bkt field gives the number 
of blocks to space, forward if positive, backward if negative. 


Output Parameters: 


RO status code 
R1 destroyed 


SOOCOCCOCSCOOCCOOOOCOOOOOCOOOOOCOOOoOSO 


Implicit Outputs: 
the sts ‘ield of the rab 
the stv field of the rab (set to # of blocks actually spaced, always 
positive) 
Completion Codes: 
standard rms 
Side Effects: 


none 


Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Fe Ge Ge Ge Ge Ge Se Ge Fe Se Ge Ge Ge Ge Ge Se Ge Ge 


++ 


AUS WN ©O OONAUS WIN OOO NAMES WN --§ O ODNOAUE WI O OONOU Ewin 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSs 
NNN NNO AAAAA AAA OMNI BE EE BE BB BWW IIIonononononononon) 


ee a ss Ss SY As SS SS — — — 9 — Ss 2s —) —) Ws bd Ss SS Ss SS ss SS  -s Ss 3 


00 ; 

0 7? ; verify operation allowed (accessed for block i/o to a magtape or disk) 
i 3 ; and call internal space magtape routine unless this is for a disk file. 
00 0 :-- 

00 1 

00 ¢ SENTRY RMSSSPACE 

000 STSTPT SPACE 

006 4 SRABSET ANYFAC=1,- ; set up stream 

006 5 BIO=1,- 3 any fac value o.k., must be accessed 
944 § CFLG=1 : for block i/o, clear find last 


4 3 
RMSOMAGTA SNXTVOL, SSPACE & OTHER MAGTAPE CODE 16-SEP-1984 01:22:1 AX/VMS Macro V04-00 Page 
vou-000 $SPACE ROUTINE ore ee 1 3be 16:55:08 AMS SRCIRASOMAGTA-MAR; 1 . 
4 CSB o1Resy BIOL AST (RY) ; Clear bio_last. 
31 6A 3 EO 7 BBS #IFBSV~DAP> (R105 ,NTSPACE - branch if network operation 
3 6A 5 0 BBS #DEVSV~FOD, IFBSL_PRIM_DEV(R10) , 10$ 
O0A 1 1 1 BRW ERRIOP ; branch if not disk or mt 
ES" 1 ¢ 10$: BSBW RMSFLUSH ; write all dirty blocks 
4 ia 1 BLBC RO exit 3; get out on error 
0A9 D4 001 4 CLRL = I[RB$L_CURBDB(R9) ; Say no current bdb 
44 09 B4 00 CLRW IRBSW_NRP_OFF(R9) 3 start at beginning next block 
56 38 A8 00 00 MOVL RABSL-BKTTRB) ,R6 : pick up space count 
05 €1 00 BBC #0EV$T_SQD,- ; branch if not magtape 
3C 6A 0 IFBSL_PRIM_DEV(R10) ,SPDISK 
0 CSB #IRBSO_EOF, (R9) ; clear the eof bit - we're no 
0 3; longer at eof 
40 a9 «=6©001'—s«és«é*—ED MOVL #1, IRBSL_NRP_VBN(R9) i mrp should equal 1 to avoid 
0 : roee congas tne with ebk 
74 AA 01 43 0 MNEGL #1,1FBSL_EBK(R10) ; ebk must be -! for same reason 
0085 0 00 BSBW RMSSPACE_M 3 space the magtape 
OC AB 56 0 003 SPEXIT: MOVL R6,RABSL_STV(RB) 3; set stv from block count 
FFBD' 31 04 EXIT:  BRW RMSE XRMS ; back to user 
04 ++ 
04 


DNWWW 9 DOO S MD NWWIWIWIWIWIWIWWIWWIOO NN OU | $$ 9 D OYVNV MNO Orn > 


PIPIPOPONININPONPIPIPIPYRINININYNINININIDD 2 OO Os ss es es es ee ee ee ee ee 
2 | “DOO OOCOOOOCOOOO0O000000 0000000 


DWONAUE WN (OOO NAU EWN 0 OD NAMES WN" OOONOAW 
i 
a 


0 
0 
0 
0 
0 
0 
8 3 
Oba 3; perform network space function 
004 
004 
bod NTSPACE: 
51 38 AB DO 004 MOVL RAB$L_BKT(R8) ,R1 : get # blocks to space 
FFB6" 30 004 BSBW NTS$SPACE : Space the file via remote fal 
8202 8F 50 Bi 004 CMPW RO, #<RMS$_SUP&*XFFFF>  ; screen out unsupported error 
EF 13 004 BEQL = EXIT : as rab$l_stv already has 
005 3: associated dap error code 
C144 8F 50 81 Bpe CMPW RO, #<RMS$_SUPPORT&*XFFFF> ; and Let us not forget the other form 
—E8 13 005 BEQL EXIT ; of the unsupported ap error code 
38 AB D5 005 TSTL RABSL_BKT(R8) 3 space foreward request? 
06 19 005 BLSS 10$ ; branch if not : 
40 a9 56 CO 005 ADDL2 R6,1RB$L.NRP_VBN(R9) ; update next block pointer 
09s 006 BRB SPEXIT : join mainline 
40 A9 56 C2 006 10$: SUBL2 R6,1RBSL_NRP_VBN(R9) ; update next block pointer 
D7 = ss Ooe BRB EXiT 3; exit to user 


Kk 3 
RMSOMAGTA SNXTVOL, SSPACE & OTHER MAGTAPE CODE 16-SEP-1984 01:22:1 AX/VMS Macro V04-00 Page 
yoL-008 SSPACE ROUT INE oat Pi 93:38:48 LRMS SRCIRMSOMAGTA-MAR: 1 . (8) 
69 1 
aor 
424 ? ; $space for disk file. 
bee 5 ; update nbp checking for beginning and end of file conditions 
be9 599 
F 19 0069 959 EEK: Bee ons branch if back 
3 branc ackspace 
40 A9 ef C9 0068 0 ADDL R6 at 3" van ponent 3; bump nrp 5PY specs count 
74 AA ¢ O06F 1 SUBL3 IFBS$L 0) ; past eof? 
51 40 Ad 0 : sie 44 VBNCRS), R1 
zi 18 7 BLEQU 0$ 3; branch if not 
01 1 D1 007 4 CMPL R1,# 3; exactly 1 block past? 
05 12 OO7A 5 BNEQ re : branch if not 
5C AA B5 O07C 6 TSTwW {fese. FFBCR10) 3 something in Last bieck? 
35 12 OO7F 37 BNEQ ; branch if yes (o.k. 
0081 38 
0081 39 ; 
0081 40 ; attempt to move pees eof block (+1 if ffb not = 0). 
4 ‘3 3 position to eof block (+1 if ffb not = 0) and return an error. 
0081 243 ° 
40 A9 74 AA 00 0081 ste 10$: MOVL TFBSL_EBK(R10), IRBSL_NRP_VBN(R9) ; set to eof block 
5¢ BS 0086 45 TSTW IFBSW_FFB(R10) ; block empty? 
0S 13 0089 246 BEQL 15$ : branch if yes 
40 AD =D06 60088 4 INCL IRB$L_NRP_VBN(R9) ; bump past vartial blk 
51 D7 OO8E 48 DECL R1 ; adjust esvrerense. count 
56 51 ¢2 0090 49 15$: SUBL2 R1,R6 adjust space coun 
0093 50 = (# wanted) - CF Lacking) 
0093 51 RMSERR FOF : indicate not all spaced 
1¢ 11 0098 2¢ BRB 0$ 3 continue 
009A 5 
009A 54; 
009A 55 ; space backward for disk file. 
009A 56 ;: 
009A 57 ; check for beginning of file. 
009A 58 ; 
009A $20 
56 56 CE OO09A 60 208: MNEGL R6,R6 ; get # blks to backspace 
40 A9 56 D1 009D 61 CMPL R6, IRBSL_NRP_VBN(R9) 3; can we do entire backspace? 
OF 1F OOA1 6g BLSsu 258 : branch if yes 
0A3 6 RMSERR BOF 3 po - change status code 
56 40 Ad 4 0A8 64 MOVL IRBSL_NRP VBN(R9) , R6 : & adjust actual space count 
18 ~«C€C OAC 65 BBS #DEVST_FOR, ; branch if mounted foreign 
02 6A par 96 IFBSL PRIM, DEV(R10), 25$ 
—. 6 DECL My ; leave a 
40 A9 = 56 c¢ 0082 68 3 ¢ SUBL2 R6,1RBSL_NRP_VBN(R9) ; adjust nbp * space count 
FFB3) 31 0086 369 0$: BRW SPEXIT : go finish up 


| 


RMS( 
v04: 


Oe 
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RMSOMAGTA SNXTVOL, SSPACE & OTHER MAGTAPE coe 16-SEP-1984 01:22:1 AX/VMS Macro v04-00 Pp 7 | RMS( 
voe-008 SSPACE ROUT INE B7SEp-198¢ 14:55:08 LAmsVeactanSOmActacar:1 P29 chy, V04- 
3 37 it | 
4 of ; handle invalid device error. 
9 ud: = 
B9 27 
0B9 78 ERRIOP: 
0B9 27 RMSERR IOP 
FF3F* 31 OOBE 280 BRW RMSE XRMS : get out 
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SSPACE & OTHER MAGTAPE CODE i ot tat B49 Oise: he AX/VMS Macro V04-00 
OUTINE “SEP=1984 16:25:0 


RMS .SRCJRMSOMAGTA.MAR; 1 


+ 
+ 


RMSSPACE_MT = space file blocks routine for magtape. 
RMSWRITEOF == 


me | 


: inputs: 

: R6 # of blocks space (forward if postive, backward if negative) 
$ R8 rab/fab addre 

§ RY irab/ifab ederecs 

: R10 ifab address 

5 R11 impure area address 

: outputs: 

: RO status code 

3 R6 # blo che actually spaced 

3 R1-R5,AP destroyed 


RMSSPACE_MT:: 
Bes Wey v$v ; branch if mounted foreign 
IFBSL PRIM. DEV(R10), 20$ 
MOVZBL HIBSC. PATE,R5 


need are scores coneeas function code 
10$: Se Set TRBSL. 10S+2(R9) ,R6 


do the spac 
get # of blocks spaced 
and return to caller 


: do space logical blocks for non-files-11 magtape 


20$: MOVZWL #10$_ SKIPRECORD,RO ; igogical space function code 
esas MTFUNC_FOR ; do the space 


+ 
+ 


write an eof mark for close of output foreign magtape (or mailbox) 


RMSWRITEOF : 
MOVZUL #10$ vg et RO 
BBC fear V_MBX, ; branch if not mailbox 


IFBSL _PRIM: DEV(R9), NOTMBX 
BISB2 At NOW, RO 
NOTMBX: 
BRB MTFUNC_FOR1 


: eliminate wait for i/o 


RMS( 
V04: 
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voe-000 I Be 94:88:he } mS _ 


zo 


E 
SNXTVOL ROUTINE “SEP=19 RMS.SRCJRMSOMAGTA.MAR; 1 (9) | v04- 
OE 4 .SBTTL $NXTVOL ROUTINE : 
+4 
OE 5 i | 
; 8 3 Entry point for $nxtvol. 
Of 40 ; check that this is for a magtape and, if so, do a $flush followed by 
bE +) ; call to the magtape primitive to do the next volume processing. 
OE rk gee 
0&3 344 | 
BoE 45 SENTRY RMSSNXTVOL 
OE 46 STSTPT NXTVOL 
Q0E9 47 SRABSET ; set up stream 
3—E €0 OOED 48 BBS #IFBSV_DAP,- : branch if a network device 
6A OOEF 49 IFBSL PRIM_DEV(R10),- 
21 OOFO 50 NTNXTOUOL 
05 €1 OOF! 51 BBC #DEVS$V_SQD,- 3; branch if not magtape 
6A OOF3 26 IFBSL PRIM_DEV(R10),- 
C4 00F4 35 ERRIOP ; | 
FFO8* 30 OOFS 354 BSBW RMSFLUSH ; write any dirty blocks 
1450 £9 OOF8 $22 BLBC R ; get out on error ; 
55 03 9A OOFB 56 MOVZBL #F 1BSC_NEXTVOL,R5 3 set magtape control function code 
38 10 OOFE 357 BSBB MT : do the nextvol call 
0B 69 21 #+€0 0100 358 BBS #IRBSV_EOF,(R9) ,10$ ; if at EOF, return 
44 09 D4 0104 359 CLRL IRB$L_ARP_OFF (RO) : set record offset to zero 
40 A9 01 DO 0107 360 OVL #1,IRBSL_NRP_VBN(R9) =; reset YBN to1 | 
74 AA 01 CE Q10B 361 MNEGL #1,1FBSL_EBKTR10) 3; indicate beginning of file section 
FEEE’ 31 010F 362 10$: BRW RMSEXRMS : back to user 
Bis 36 | 
011 364 ; ; 
0112 $2 : Do the nxtvol for a network device. 
0112 66 ; 
Biis 367 
0112 368 NTNXTVOL: ; 
FEEB' 30 0112 369 BS NTSNXTVOL : Do the next vol. operation 
FEE8* 31 0115 370 BRW RMSEXRMS : and return to the user. 
| 
| 
} 
| 


RMSOMAGTA SNXTVOL, SSPACE & OTHER MAGTAPE 
v04-000 RMSREWIND_MT = INTERNAL ROUTINE 
11 7 
11 7 
11 74 344 
011 75 3 
011 76 ; RMSREWIND_MT 
Bt 77; 
118 78 ; rewind magtap 
0118 79 ; 
0118 80 ; 
0118 81 ; inputs: 
0118 8 3 
B13 } : RB 
011 4; RY 
0118 385; R10 
0118 386; R11 
0118 387; 
0118 $66 3 outputs: 
0118 89 ; 
0118 390; RO 
0118 391; R1-R6,AP 
0118 305 ; 
0118 393 ;-- 
0118 394 
0118 395 RMSREWIND_MT:: 
55 06 3¢ 0118 396 MOVZWL 
18 €1 0118 397 
1C 6A 011D 398 
O11F 399 
50 OOA4 BF 3C O11F 400 MOVZWL 
0124 401 CSB 
0128 402 CSB 
012C 403 MTFUNC_FOR1: 
012C 404 CLRL 
012E 405 
O12E 406 MTFUNC_FOR: 
012E 407 CLRQ 
0130 408 
0132 409 
0134 410 
0136 411 
0139 412 


B 4 
CODE 
TO REWIN 5=-SEP=1984 16 


e to beginning of file 


rab/fab address 
irab/ifab address 
ifab address 

impure area address 


status code 
destroyed 


#F 1BSC_REWINDFIL RS 
IFB$L_PRIM.DEV(R10) ,MTFUNC 
#10$_REWIND! IO$M_NOWAIT,RO 
#IFBSV_EOF,(R10) 
#IRBSV~EOF , (R9) 


R6 


PFNC_NOFIB 


16-SEP-1984 Or geite 


AX/VMS Macro V04-00 
RMS. SRCIRMSOM 


~-SBTTL RMSREWIND_MT = INTERNAL ROUTINE TO REWIND MT 


AGTA.MAR; 1 


set mt control function code 
branch if not mounted foreign 


rewind tape i/o function 
no longer at end of file 
ctear bit in irab also 


zero qio pl parameter 


6 = p5 = 0 for qio 
DS = p3 “f Betts. 
be = 


p 
perform the qio 


RMS 
VO4 


( 


1 
| 
| 


RMSOMAGTA S$NXTVOL, $SP 
v04-000 MTFUNC = SUB 


Zo 
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OTHER MAGTAPE CODE 16-SEP-1984 01:22:1 AX/VMS M v04-00 P 
E g- 38:8 RMSO os 


E 11 RMS( 
TINE TO ISSUE A MAGTAPE C SEP-1984 16 RMS .SRCJRMSOMAGTA.MAR; 1 (11) v04- 


~SBTTL MTFUNC = SUBROUTINE TO ISSUE A MAGTAPE CONTROL Q10 


+ 
+ 


mtfunc subroutine to issue user magtape control functions to the 
magtape primitive. 


entry at mtfncl if r6 contains a magtape control value. 


AANA AI AAA AAI 


ACE 
ROU 
013B 4414 
138 415 
138 418 ; 
138 «6417 ; 
0138 4418; 
4 B 419; 
138 420; 
0138 432 | input | 
; inputs: 
013B 4 : 3 
0138 424 ; R5 magtape control function code — 
81 B 425 ; R6 magtape control value (not an input for entry at mtfunc) 
i138 436: RB rab/fab address | 
0138 427 ; ay irab/ifab address 
0138 428 ; R10 ifab address 
013B 429 ; R11 impure area address 
0138 430; 
0138 431; outputs: 
0138 $36 ; 
0138 433 ; RO status code 
013B 4 8=434 ; R6 zeroed if entry at mtfunc, else unchanged 
b138 $32 5 R1-R5,AP destroyed 
0138 437 ; note: RMSFLUSH must already have been called for file | 
0138 438; 
0138 439 :-- | 
0138 440 | 
56 D4 0138 441 MTFUNC: CLRL R6 ; zero control value param 
013D +¢§ MTFNC1: ; entry point with r6 = control value | 
52 40 8F 9A 013D 44 MOVZBL #FIBSC_LENGTH,R2 ; set size of fib 
FEBC’ 30 0141 444 BSBW RMSGETSPC1 ; allocate fib | 
22 50 E—€9 0144 445 BLBC RO,MTXIT 3; branch on error 
0147 446 | 
0147 447; | 
0147 448 ; build descriptor for fib on stack 
0147 449 ; | 
0147 450 : 
51 DD 0147 451 PUSHL R11 ; addr of fib 
7E 40 8F QA 0149 $36 MOVZBL #FIBSC_LENGTH,-(SP) ; length of fib : 
16 A1 55 BO 0140 45 MOVW RS,FIBSW_CNTRLFUNC(R1) ; set control function code 
18 Al 56 0 0151 454 MOVL R6,F IBSL_CNTRLVAL(R1) ; and value 
50 38 3¢ 0155 455 MOVZWL #10$_ACPCONTROL RO : set i/o function code 
43 7C 0158 456 CLRQ -(SPJ ; p6 = p5 = 0 (qio arguments) 
FEAS* 30 OIA 457 BSBW = RMSFCPFNC_P4 : call acp and perform function | 
14 BA 015D 458 POPR #*M<R2,R45 3; clean stack & get fib len & addr 
50 D O1SF 459 PUSHL RO ; Save status code 
FE9C' 30 0161 460 BSBW RMSRETSPC1 ; deallocate fib 
01 BA 0164 461 POPR #*M<RO> ; restore status | 
0150 €9 0166 236 MTSTS: BLBC RO,MTERR 3; branch on error 
05 0169 465 MIXIT: RSB ; return to caller | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
} 
| 
} 


pt BOE. RMS( 
v04-000 ; 
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16A 465 | 
16A £08 : : 
16A 467 ; Had an error. Map to RMS version of status code. | 
O1ea. 68 | | 
j 
0870 8F 50 B81 Q16A 470 MTERR: CMPW RO, #SS$_ENDOFFILE ; did we 1 pe end of file error? 
OD 13 19 471 BEQL ; branch 
O9A0 8F 50 Bi O171 tr¢ CMPW RO, #SS$_ENDOF VOLUME ; did we have. "end of volume 
1E 12 0176 47 BNEQ 40 ; branch if n 
18 €1 0178 474 BBC #DEVS 3 and foreion aan | 
27 6A 017A = 475 FBSL VPRIM, DEV(R10), 50$ ; branch if not 
04 «11 pize 476 BRB 0$ 
18 £0 OQOI17E 477 108: BBS #DEVSV_FOR,- :; if not foreign 
OE 6A 0180 478 IFBSL_PRIM_DEV(R10) ,30$ 
0182 479 208: SSB #IRBSO_EOF; (RI) ; set the eof flag 
40 A9 =74 AA DO 0186 480 MOVL IFB$L_EBK(R10), IRB$L_NRP_VBN(R9) 
44 49 5C AA BO 01868 481 MOVW IFBSW_FFB(R10), IRBSL_NRP_OFF oa ; make sure the bit gets tested 
0190 rt) 30$: RMSERR EOF yes - change to rms version 
0 O16 8a se 
0938 8F 50 B11 0196 485 40S: CMPW RO,#SS$_BEGOFFILE ; was it beginning of file? 
06 12 0198 486 BNEQ 50$ : branch if not 
0190 487 RMSERR BOF 3 yes - change to rms version 
05 O1A2 488 RSB 
O1A3 489 
O1A3 490 50S: 
O1A3 491 RMSERR DPE,R1 ; default error code 
FE5S' 31 QO1A8 492 BRW RMSMAPERR ; map error to rms & return 
O1AB «4493 
| 
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“ 5 -SBTTL RMSWTTAPMARK WRITE TAPE MARKS 
AB S ++ 
AB $ 
AB RMSWTTAPMARK - 
AB 
this routine writes tape marks on ge» magtapes if 
the IFBSV_EOF bit is set. this bit gets set whenever a put | 
is done and cleared on rewind. 
the fape marks do not get written if the file was not 
opened with write access. 
input 


none 
implicit input 
R9 - ifab address 


IFBSV_WRTACC - set if writing is permitted 
IFBSV_EOF - set if at end of file 

output 
RO - set to appropriate status code 


implicit output 
none 


side effects 
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DPV DVPVPVPV IVI LV PV LIUPUIVIVLUSIUDVIVSUSLULUSLUSUSV IVS USSU SVIUSUSUS US USUI USUI US OS USIOSIOSIOS SISOS S™ SS £~ 
BPE EEE EEF EAN ANIIWIWIWINIRIPIPINININININID 2 2 OO | MH DOOODOOCOCOOOWOWOWOWOO 
DOO NAWUE WN 0 OD NAME WIN OS OD NOA UE WIN $$ O OD NOAU EWN 0 ODNOU EW 


fom lelele le lela el el elelelelelelelelelelelealelelelelelelealelelololelolelolelelealolelele ol «lela ole a) ols «=| =) 
pe Sper Speer Speer Seer Sor Sew Sore ae Ser er er ee ee ee ee en en ee ee re ee 


none 
RMSWTTAPMARK: : 
1D 69 30 €1 BBC WIFBSV_WRTACC,(R9),40$ ; write accessed? 
19 69 21 él AF BBC #IFBSV~EOF , (RO) ,40$ : eof ? 
FF20 0 B3 BSBW MSWRITEOF 3 yes - write eof 
16 50 3 B6 BLBC 0,30 3 write another one 
FFIA 30 0189 BSBW «=s-sa RMSWRITEOF 
1050 €9 BC BLBC 0,30 
56 S(O) 3 BF MNEGL #1,R6 3; space some 
FEFC Ce SBW | RMSSPACE_MT | 
827A 8F 50 BI c5 CMPW RO, #RMSS_EOFS*XFFFF ; make sure error is eof 
os itz +? BNEQ 30$ : if not - real error 
cc 40$: RMSSUC 
05 CF 30$: RSB 
dO END 
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Symbol table -SEP=1984 16:25:05 CRMS.SRCIRMSOMAGTA.MAR; 1 (14) v04 
$$.PSECT_EP = 00000000 RMSRETSPC1 aeeeneer =X 1 
SSRMSTEST = 00 3 1A RMSREWIND_MT 00000118 RG 1 
SSRMS_PBUGCHK = 00 40 RMSRSET eereeeee =X 1 
$SRMS~ TBUGCHK = 0 0000 RMSSPACE_MT 0000C1 RG 01 
SSRMS_UMODE = 0000 O0% RMSWRITEOF 0000D6 RG 1 
DEVSV_FOD = 990 0 f RMSWT TAPMARK 000 NAB RG 1 
DEVSV—-FOR = 0000001 RMSSNXTVOL = 000000E1 RG 1 
DEV$V_MBX = 90000018 RMSS$SPAC = pppreree RG 01 
DEV$V~SQD s 908 903 RMS$_BOF = 0001819 
ERRIOP 0000089 R 01 RMS$_DPE = 0001CO3A 
EXIT 0000040 R 01 RMS$_EOF s 00018274 
F IBSC_LENGTH = 900 Of RMS$_ IOP = 90018 74 
F IBSC"NEXTVOL = 0000000 RMS$_ SUP = 000182p2 
F IBSC_REWINDF IL = 00000006 RMS$~ SUPPORT = 0001144 
F IBSC"SPACE = 00000004 SPDISK 90000069 R 01 
F IBSL-CNTRLVAL = 00000018 SPEXIT 0000003 R 01 
F 1BSW-CNTRLFUNC = 00000016 $$ -BEGOFFILE = 00000938 
IFBSL_EBK = 00000074 SS$_ENDOFF ILE = 00000870 
IFBSL_PRIM_DEV = 00000000 SS$- ENDOF VOLUME = 00000940 
IF BSV_DAP = 0000003E TPTSL_NXTVOL eeneeeee X 01 
IFBSV_EOF = 9000008) TPTSL~ “SPACE aeeeeeee X 01 
1FBSV~WRTACC = 00000080 | 
IFBSW-FFB = 0000005C 
10$M_ = 00000040 | 
1O0$M-NOWAIT = 00000080 
10$_ACPCONTROL = 00000038 | 
10$_REWIND = 00000024 
10$~SKIPRECORD = 69000086 
10$~ WRI TEOF = 00000028 
IRBSL_CURBDB = 00000020 
IRB$L_10S = 0000000C 
IRBSL_NRP_OFF = 00000044 
IRBSL_NRP_VBN = 00000040 
IRB$V_BIO_LAST = 00000027 
IRBSV— = 00000021 
IRBSW_NRP_OF F = 00000044 
MTERR 0000016A R 01 
MTFNC1 900001 3p R 01 
MTFUNC 00000138 R 01 
MTFUNC_FOR 900001 ze R 01 
MTFUNC_FOR1 0000012C R 01 
MTSTS 00000166 R 01 
MTXIT 00000169 R 01 
NOTMBX O0O0000E1 R 01 
NTSNXTVOL eeeeeere =X 01 | 
NTSSPACE teeeeeee = X 01 
NTNXTVOL 00000112 R 01 
NTSPACE 00000043 R 01 
PIOSA_TRACE eeeeereer = X 01 
RABSL_BKT = 00000038 
RABSL~ STV = 0000000C 
RMSE XRMS eeeeeeee XxX 01 | 
RMSE CPENC _NOF IB eeeeeeee = X 01 
RMSF CPF NC_P PG teeeeeee x 1 
RMSFLUSH ~ reereene x 1 
RMBGETSPCI eeeeeeee =X 4 

RMSMAPERR ereerene x 1 


RMSOMAGTA 
Psect synopsis 
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} 
paw mrm omer eeceonae +e 


PSECT No. 


00000000 < 0.) 00 ¢ -} 


Attributes 


NOPIC USR CON 


Ig-SeP-1 
-SEP=1 


RMSRMS 000001D0 (¢ 464.) 01 ¢ -) PIC USR CON 
SABSS 00000000 0.) 02 ¢ 2.) NOPIC USR- CON 
$eeesceecenoeoe cece ecw mse oe + 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization — $$ 00:00:00.07 00:00:01.74 
Command processing 137 00:00:00.83 BF ee ge 
Pass 1 413 00:00:15.45 00:00:35.81 
Symbol table sort 0 00:00:02.52 00:00:03.54 
Pass 2 101 00:00:02.9 00:00:05.47 
Symbol table output 10 00:00:00:12 00:00:00.22 
Psect synopsis output 2 00:00:00.0 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 701 00:00:21.99 00:00:54.02 


The working set Limit was 1650 pages. 


88641 bytes (174 pages) of virtua 


3B 


16:38:08 


ABS LCL NOSHR NO 
GBL NOSHR 


REL 
ABS LCL NOSHR 


memory were used to buffer the intermediate code. 


There were 90 pages of symbol table space allocated to hold 1765 non-local and 22 local symbols. 
549 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
25 pages of virtual memory were used to define 24 macros. 


! Macro Library statistics ! 
I + 


Macro Library name 

_$255$DUA28: CRMS .OBJJRMS.MLB; 1 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 
$255$DUA28: (SYSLIBISTARLET.MLB;2 
TOTALS (all Libraries) 


1885 GETS were required to define 20 macros. 


There were no errors, warnings or information messages. 


Macros defined 


EXE 
EXE 
EXE 


NORD 
RD 
RD 


MACRO/LIS=L1IS$:RMSOMAGTA/OBJ=O0BJ$:RMSOMAGTA MSRC$:RMSOMAGTA/UPDATE=(ENHS: RMSOMAGTA) +EXECMLS$/LIB+L1B$:RMS/LIB 


AX/VMS Macro V04-00 Page 
RMS.SRCJRMSOMAGTA.MAR; 1 


NOWRT NOVEC BYTE 
NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


15 
(14) 


| 
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EQUIPMENT CORPORATI 
NTIAL_AND PROPRIETAR 


ON 
. 


